home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / elec12m5.exe / aliases.ini next >
Encoding:
INI File  |  1997-04-08  |  22.7 KB  |  405 lines
  1. [aliases]
  2. n0=:================= F-Keys =============================
  3. n1=F1 /kick %floodchan %flooder 12╕2╕11.12╖2┤11»12`2╖11.12╕12╕2_-/```4δúδ╟t«φ╟Kⁿtφ÷± v1.2«2```\-_12╕2╕11.12╖2┤11»12`2╖11.12╕ É( $+ %FLOODTYPE FLOOD $+ )É
  4. n2=F2 /ban -u60 %floodchan %flooder 3 | /kick %floodchan %flooder 12╕2╕11.12╖2┤11»12`2╖11.12╕12╕2_-/```4δúδ╟t«φ╟Kⁿtφ÷± v1.2«2```\-_12╕2╕11.12╖2┤11»12`2╖11.12╕ É( $+ %FLOODTYPE FLOOD 460 SECOND BAN12 $+ )É
  5. n3=F3 /floodstatus
  6. n4=F4 /timers off | /lagping | /pingme
  7. n5=F5 /laway
  8. n6=F6 /lback
  9. n7=F7 /qaway
  10. n8=F8 /qback
  11. n9=F9 /lio
  12. n10=F10 /netops
  13. n11=F11 /scanclones
  14. n12=F12 /vmsg
  15. n13=sf12 /dmsg
  16. n14=:=====================================================
  17. n15=ctcpverylow /.enable #ctcppro | /set -q %sensitivity 6 | echo -a  4,1CTCP Protection set to Very Low | /set -q %protect Very Low  | title
  18. n16=ctcplow /.enable #ctcppro | /set -q %sensitivity 5 | echo -a  4,1CTCP Protection set to Low | /set -q %protect Low  | title
  19. n17=ctcpmedium /.enable #ctcppro | /set -q %sensitivity 4 | echo -a 4,1 CTCP Protection set to Medium | /set -q %protect Medium  | title
  20. n18=ctcphigh /.enable #ctcppro | /set -q %sensitivity 3 | echo -a 4,1 CTCP Protection set to High | /set -q %protect High  | title
  21. n19=ctcpextreme /.enable #ctcppro | /set -q %sensitivity 1 | echo -a 4,1 CTCP Protection set to Extreme | /set -q %protect Extreme  | title
  22. n20=ctcpdisable /ctcpon | .disable #ctcppro | echo -a 4,1WARNING: You have turned your ctcp protection OFF  | /set -q %protect Disabled  | title
  23. n21=floodpon /flood on | /echo 3 4[8,1FLOOD PAUSING4]: ON | set -q %pausing On
  24. n22=floodpoff /flood off | /echo 3 -a 4[8,1FLOOD PAUSING4]: OFF | set -q %pausing Off 
  25. n23=floodpclear /flood clear | /echo 3 -a 4[8,1FLOOD PAUSING QUEUE4]: CLEARED  
  26. n24=floodpcustom /flood $?="Enter Triggerbytes:" $?="Enter Maxqueue Size:" $?="Enter Max User Message:" $$?="Enter Ignore Time For Flooder:" | /set %pausing on | /echo 3 -a 4[8,1FLOOD PAUSING4]: ON 
  27. n25=noticeproon /.enable #noticepro | /echo 3 -a 4[8,1NOTICE PRO4]: ON | set -q %noticepro On
  28. n26=noticeprooff /.disable #noticepro | /echo 3 -a 4[8,1NOTICE PRO4]: OFF | set -q %noticepro Off
  29. n27=noticesvh /set -q %noticesens 3 | set -q %noticepros Very High
  30. n28=noticesh /set -q %noticesens 4 | set -q %noticepros High
  31. n29=noticesm /set -q %noticesens 5 | set -q %noticepros Medium
  32. n30=noticesl /set -q %noticesens 6 | set -q %noticepros Low
  33. n31=noticesvl /set -q %noticesens 7 | set -q %noticepros Very Low
  34. n32=textpon /.enable #textpro | /echo 3 -a 4[8,1TEXT PRO4]: ON | set -q %textpro On
  35. n33=textpoff /.disable #textpro | /echo 3 -a 4[8,1TEXT PRO4]: OFF | set -q %textpro Off
  36. n34=textpvh /set -q %textsens 3 | set -q %textpros Very High
  37. n35=textph /set -q %textsens 4 | set -q %textpros High
  38. n36=textpm /set -q %textsens 5 | set -q %textpros Medium
  39. n37=textpl /set -q %textsens 6 | set -q %textpros Low
  40. n38=textpvl /set -q %textsens 7 | set -q %textpros Very Low
  41. n39=invitepon /.enable #invitepro | /echo 3 -a 4[8,1INVITE PRO4]: ON | set -q %invitepro On
  42. n40=invitepoff /.disable #invitepro | /echo 3 -a 4[8,1INVITE PRO4]: OFF | set -q %invitepro Off
  43. n41=inviteph /set -q %invitesens 3 | set -q %invitepros High
  44. n42=invitepm /set -q %invitesens 4 | set -q %invitepros Medium
  45. n43=invitepl /set -q %invitesens 5 | set -q %invitepros Low
  46. n44=topicpon /.enable #topicpro | /echo 3 -a 4[8,1TOPIC PRO4]: ON | set -q %topicpro On
  47. n45=topicpoff /.disable #topicpro | /echo 3 -a 4[8,1TOPIC PRO4]: OFF | set -q %topicpro Off
  48. n46=nickpon /.enable #nickpro | /echo 3 -a 4[8,1NICK PRO4]: ON | set -q %nickpro On
  49. n47=nickpoff /.disable #nickpro | /echo 3 -a 4[8,1NICK PRO4]: OFF | set -q %nickpro Off
  50. n48=joinpon /.enable #joinpro | /echo 3 -a 4[8,1JOIN PRO4]: ON | set -q %joinpro On
  51. n49=joinpoff /.disable #joinpro | /echo 3 -a 4[8,1JOIN PRO4]: OFF | set -q %joinpro Off
  52. n50=replypon /.enable #replypro | /echo 3 -a 4[8,1CTCP REPLY PRO4]: ON | set -q %creplypro On
  53. n51=replypoff /.disable #replypro | /echo 3 -a 4[8,1CTCP REPLY PRO4]: OFF | set -q %creplypro Off
  54. n52=dccion /.disable #nodcc | /unset %reason | /echo 3 -a 4[8,1ACCEPTING DCC's4] | /.creq ask | /.sreq ask | set -q %dccs Accepting
  55. n53=dccioff /.enable #nodcc | /set %reason $$?="Enter Reason For No DCC's:" | /echo 3 -a 4[8,1NOT ACCEPTING DCC's4] | /.sreq ignore | /.creq ignore | set -q %dccs Ignoring
  56. n54=;==================================================
  57. n55=netops /echo 4[8,1δúδ╟t«φ╟Kⁿtφ÷± v1.2 Listing Visible IRCops On This Network4] | /set %no 0 | enable #ircops | /stats o | /who 0 o
  58. n56=qaway /away $$?="Away Message?" | /set %whygone $! | /away <xÉ $+ $! $+ Éx> É(SINCE)É: ( $+ $fulldate $+ ) | /set -q %away Yes | title
  59. n57=laway /away $$?="Enter Away Message:" | /set %whygone $! | /ame is Away: (12 $+ $! $+ ) :1To Page Me Type: 4/ctcp $me PAGE1 , Or You Can Leave A Message:4 /msg $me <message> | /.timer20 0 500 /ame is Away: (12 $+ $! $+ ) :1To Page Me Type: 4/ctcp $me PAGE 1   Or You Can Leave A Message: 4/msg $me <message> | /.enable #away | /set -q %away Yes | /set %awaycount 0 | title 
  60. n58=lback /away | /ame has returned. | /.disable #away | /.timer20 off | /echo -a 4[8,1MESSAGES4] : %awaycount : Type 4/vmsg 12(or press F12) to view your messages and 4/dmsg 12(or press Shift-F12) to delete them. | /unset %whygone | /set -q %away No | .timer226 off | title 
  61. n59=qback /away | /unset %whygone | /.disable #away | /.timer20 off | /unset %whygone | /set -q %away No | title  | .timer226 off
  62. n60=unsetctcp .timer55 1 18 unset %count 
  63. n61=vmsg run notepad $mircdiraway.txt
  64. n62=dmsg write -c $mircdiraway.txt | echo 5 $active Away Messages Deleted
  65. n63=tb set -q %timerban $2 | mode $chan -o $1 | ban -u $+ %timerban $1 3 | timer123 1 1 kick $chan $1 É(TIMED BAN)É: %timerban Seconds.
  66. n64=title  titlebar δúδ╟t«φ╟Kⁿtφ÷± v1.2« //x.Away( $+ %away $+ )  Lag( $+ %pt secs $+ )  CTCP Defense( $+ %Protect $+ ).x\\
  67. n65=colourbar { 
  68. n66=  echo   1 1  2 2  3 3 4 4  5 5 6 6  7 7  8 8  9 9  10 10  11 11  12 12  13 13  14 14  15 15 
  69. n67=}
  70. n68=m msg
  71. n69=lagping .timer600 0 60 pingme
  72. n70=pingme ping $me
  73. n71=rawon say nick $$?="Enter Nick" | /say user $$! x x $$!
  74. n72=bot { set %collider on | set %ip $$?="Whats the servers DNS ip?" | set %port $$?="What port?" | set %collidenick $$?="Enter Nick to Collide" | raw -q privmsg $me :DCC CHAT beatch $longip(%ip) %port $+  | echo $active %id4 Connecting Raw Lag Collider ( $+ $host $+ ) to  $+ %ip $+  on port %port at * $+  $time $+ * Colliding %collidenick }
  75. n73=editnotes run notepad.exe $$?="Enter file to edit with NotePad:"
  76. n74=op mode # +oooo $$1 $2 $3 $4 | /mode # +oooo $5 $6 $7 $8 | /mode # +oooo $9 $10 $11 $12 | /mode # +oooo $9 $10 $11 $12 | /mode # +oooo $13 $14 $15 $16 | /mode # +oooo $17 $18 $19 $20 | /mode # +oooo $21 $22 $23 $24 | /mode # +oooo $25 $26 $27 $28 | /mode # +oooo $29 $30 $31 $32 | /mode # +oooo $33 $34 $35 $36
  77. n75=deop mode # -oooo $$1 $2 $3 $4 | /mode # -oooo $5 $6 $7 $8 | /mode # -oooo $9 $10 $11 $12 | /mode # -oooo $9 $10 $11 $12 | /mode # -oooo $13 $14 $15 $16 | /mode # -oooo $17 $18 $19 $20 | /mode # -oooo $21 $22 $23 $24 | /mode # -oooo $25 $26 $27 $28 | /mode # -oooo $29 $30 $31 $32 | /mode # -oooo $33 $34 $35 $36
  78. n76=voice mode # +vvvv $$1 $2 $3 $4 | /mode # +vvvv $5 $6 $7 $8 | /mode # +vvvv $9 $10 $11 $12 | /mode # +vvvv $9 $10 $11 $12 | /mode # +vvvv $13 $14 $15 $16 | /mode # +vvvv $17 $18 $19 $20 | /mode # +vvvv $21 $22 $23 $24 | /mode # +vvvv $25 $26 $27 $28 | /mode # +vvvv $29 $30 $31 $32 | /mode # +vvvv $33 $34 $35 $36
  79. n77=devoice mode # -vvvv $$1 $2 $3 $4 | /mode # -vvvv $5 $6 $7 $8 | /mode # -vvvv $9 $10 $11 $12 | /mode # -vvvv $9 $10 $11 $12 | /mode # -vvvv $13 $14 $15 $16 | /mode # -vvvv $17 $18 $19 $20 | /mode # -vvvv $21 $22 $23 $24 | /mode # -vvvv $25 $26 $27 $28 | /mode # -vvvv $29 $30 $31 $32 | /mode # -vvvv $33 $34 $35 $36
  80. n78=all ctcp $1 Information CHECK | ctcp $1 clientinfo | ctcp $1 userinfo | ctcp $1 version | ctcp $1 finger | ctcp $1 time | ctcp $1 ping 
  81. n79=script ame Is Running δúδ╟t«φ╟Kⁿtφ÷± v1.2 ▀δtσ, by HyST3RiA
  82. n80=ig ignore $1 1 | notice $me $1 has been placed on ignore.   
  83. n81=unig ignore -r $1 | ignore -r $1 1 | ignore -r $1 2 | notice $me $1 Has been un-ignored.
  84. n82=/lio {
  85. n83=  /set %no 0
  86. n84=  /.enable #ircops
  87. n85=  /echo 4[8,1δúδ╟t«φ╟Kⁿtφ÷± v1.2 Listing IRCops On4]: #
  88. n86=  set %scan on
  89. n87=  /who #
  90. n88=}
  91. n89=whois {
  92. n90=  set -q %whois on
  93. n91=  whois $$1
  94. n92=}
  95. n93=blankmsg msg #
  96. n94=floodstatus {
  97. n95=  echo 4 %sym 12╕2╕11.12╖2┤11»12`2╖11.12╕12╕2_-/```4δúδ╟t«φ╟Kⁿtφ÷± v1.2«2```\-_12╕2╕11.12╖2┤11»12`2╖11.12╕ 
  98. n96=  echo 4 %sym 12Flood Protection Status
  99. n97=  echo 4 %sym 12CTCP Protection:4 %protect
  100. n98=  echo 4 %sym 12mIRC Flood Pausing:4 %pausing
  101. n99=  echo 4 %sym 12Text Protection:4 %textpro : 12Sensitivity:4 %textpros
  102. n100=  echo 4 %sym 12Notice Protection:4 %noticepro : 12Sensitivity:4 %noticepros
  103. n101=  echo 4 %sym 12Invite Protection:4 %invitepro : 12Sensitivity:4 %invitepros
  104. n102=  echo 4 %sym 12Topic Protection:4 %topicpro
  105. n103=  echo 4 %sym 12Nick Protection:4 %nickpro
  106. n104=  echo 4 %sym 12CTCP Reply Protection:4 %creplypro
  107. n105=  echo 4 %sym 12DCC's:4 %dccs
  108. n106=}
  109. n107=cleanlist .rlevel 32 | .rlevel 33 | .rlevel 300 |  .rlevel 301 | .rlevel 2 | .rlevel 3 | .rlevel 310 | .rlevel 311 | .rlevel 312 | .rlevel 313 | .rlevel 314 | .rlevel 315 | .rlevel 316 | .rlevel 400 | .rlevel 401 | .rlevel 402 | .rlevel 403 | .rlevel 404 | .rlevel 405 | .rlevel 406 | .rlevel 407 | .rlevel 408 | .rlevel 50 | .rlevel 51 | .rlevel 52 | .rlevel 53 | .rlevel 54 | .rlevel 55 | .rlevel 56 | .rlevel 57 | .rlevel 58 | .rlevel 59 | .rlevel 60 | .rlevel 61 | .rlevel 62 | .rlevel 63 | .rlevel 64 | .rlevel 70 | .rlevel 71 | .rlevel 72 | .rlevel 73 | .rlevel 80 | .rlevel 81 | .rlevel 82 | .rlevel 100 | .guser 100 $me 2 | .guser 100 $m
  110. n108=c clear
  111. n109=j join #$$1
  112. n110=p part #
  113. n111=n names #$$1
  114. n112=w whois $$1
  115. n113=k kick # $$1
  116. n114=q query $$1
  117. n115=ig2 ignore $1 2 | notice $me $1 has been placed on ignore.
  118. n116=ww whowas $1
  119. n117=whos whois $1 | whowas $1
  120. n118=unignore ignore -u1 $$1
  121. n119=hop part # | join #
  122. n120=send dcc send $1 $2
  123. n121=chat dcc chat $1
  124. n122=send dcc send $1
  125. n123=ping ctcp $$1 ping
  126. n124=/olines {
  127. n125=  echo 5 =========== These Are The O-lines On This Network ============
  128. n126=  Stats o
  129. n127=}
  130. n128=recho echo $1 .(x<>x). *2
  131. n129=rnick nick $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ 96
  132. n130=shit guser 25 $1 3 | ban # $1 3 | kick # $1 É(SHITLISTED)É | ignore $1 1 | .timer 1 300 ignore -r $1 1
  133. n131=remove ruser $1 | ruser $1 1 | ruser $1 2
  134. n132=ip echo 2 $active Conveted To Long ip: $longip($$1)
  135. n133=igoff ignore off
  136. n134=cl clearall
  137. n135=mytime echo 4 [Current Time]: $time 
  138. n136=wall onotice #  12 \\'σúú÷■º 4>>> *1
  139. n137=backdoor ctcp $1 A | ctcp $1 rquit | ctcp $1 quit HACK | msg $1 CHOPS | ctcp $1 version | notice $1  | ctcp $1 trout | ctcp $1 UTC DIE | ctcp $1 TSEND BABOOM.HAH | ctcp $1 azhmat | ctcp $1 çÑ╞┐;*⌐▐ñ
  140. n138=asc {
  141. n139=  set %ascii *1
  142. n140=  %ascii = $replace(%ascii,a,σ)
  143. n141=  %ascii = $replace(%ascii,b,▀)
  144. n142=  %ascii = $replace(%ascii,c,╟)
  145. n143=  %ascii = $replace(%ascii,d,╨)
  146. n144=  %ascii = $replace(%ascii,e,δ)
  147. n145=  %ascii = $replace(%ascii,i,φ)
  148. n146=  %ascii = $replace(%ascii,l,ú)
  149. n147=  %ascii = $replace(%ascii,n,±) 
  150. n148=  %ascii = $replace(%ascii,o,÷)
  151. n149=  %ascii = $replace(%ascii,p,■)
  152. n150=  %ascii = $replace(%ascii,r,«)
  153. n151=  %ascii = $replace(%ascii,s,º)
  154. n152=  %ascii = $replace(%ascii,u,ⁿ)
  155. n153=  %ascii = $replace(%ascii,w,\\')
  156. n154=  %ascii = $replace(%ascii,x,╫)
  157. n155=  %ascii = $replace(%ascii,y,Ñ)
  158. n156=  say %ascii
  159. n157=  unset %ascii
  160. n158=}  
  161. n159=stopic {
  162. n160=  set %stopic *1
  163. n161=  %stopic = $replace(%stopic,a,σ)
  164. n162=  %stopic = $replace(%stopic,b,▀)
  165. n163=  %stopic = $replace(%stopic,c,╟)
  166. n164=  %stopic = $replace(%stopic,d,╨)
  167. n165=  %stopic = $replace(%stopic,e,δ)
  168. n166=  %stopic = $replace(%stopic,i,φ)
  169. n167=  %stopic = $replace(%stopic,l,ú)
  170. n168=  %stopic = $replace(%stopic,n,±) 
  171. n169=  %stopic = $replace(%stopic,o,÷)
  172. n170=  %stopic = $replace(%stopic,p,■)
  173. n171=  %stopic = $replace(%stopic,r,«)
  174. n172=  %stopic = $replace(%stopic,s,º)
  175. n173=  %stopic = $replace(%stopic,u,ⁿ)
  176. n174=  %stopic = $replace(%stopic,w,\\')
  177. n175=  %stopic = $replace(%stopic,x,╫)
  178. n176=  %stopic = $replace(%stopic,y,Ñ)
  179. n177=  topic # %stopic
  180. n178=  unset %stopic
  181. n179=}  
  182. n180=scanclones echo 1 $active 4[8,1δúδ╟t«φ╟Kⁿtφ÷± v1.2 Listing Clones On4]:  #  | echo 3 $active Waiting for who list from # | .enable #scanclones | who #
  183. n181=ip say $ip
  184. n182=online ame has been online for %hr hours, %min minutes, and %sec seconds today 
  185. n183=since ame has been online since %uptime today
  186. n184=banall { set %num 1 | :next | set %nick $nick(%num,#) | if %nick == $null goto done | if %nick !isin $me { ban # %nick 2 } | inc %num | goto next | :done }
  187. n185=takeover2 { set %num 1 | :next | set %nick $nick(%num,#) | if %nick == $null goto done | if %nick !isin $me { mode # +i | kick # %nick } | inc %num | goto next | :done }
  188. n186=setfpro recho 4 Setting Advanced Flood Protection | .set %flcn $?1="Number of CTCPs" | .set %flct $?2="In How Many Seconds?" | .set %ignoretime $?3="Ignores for? (sec)" | recho 5  Advanced Flood Protection set to  $+ %flcn $+  CTCPs in the period of  $+ %flct $+  seconds ignores for  $+ %ignoretime $+  seconds. 
  189. n187=boot %i = 0 | :begin | %i = %i + 1 | %thischan = $channel(%i) | if (%thischan == $null) { unset %akick | halt } | if ($me !isop %thischan) { goto begin } | if (%akick == $null) { %akick = *1 } | raw -q kick %thischan %akick :BooT | goto begin
  190. n188=ctcpoff ignore -tpn *!*@*
  191. n189=ctcpon ignore -r *!*@*
  192. n190=clone1 run $mircdirMirc32.exe $mircdir\clones\clone1.ini
  193. n191=clone2 run $mircdirMirc32.exe $mircdir\clones\clone2.ini
  194. n192=clone3 run $mircdirMirc32.exe $mircdir\clones\clone3.ini
  195. n193=clone4 run $mircdirMirc32.exe $mircdir\clones\clone4.ini
  196. n194=clone5 run $mircdirMirc32.exe $mircdir\clones\clone5.ini
  197. n195=clone6 run $mircdirMirc32.exe $mircdir\clones\clone6.ini
  198. n196=clone7 run $mircdirMirc32.exe $mircdir\clones\clone7.ini
  199. n197=clone8 run $mircdirMirc32.exe $mircdir\clones\clone8.ini
  200. n198=clone9 run $mircdirMirc32.exe $mircdir\clones\clone9.ini
  201. n199=clone10 run $mircdirMirc32.exe $mircdir\clones\clone10.ini
  202. n200=;=====================================================================================
  203. n201=;============================ Found This In A Text File From Somewhere ======================
  204. n202=kolor say $clr(*1)
  205. n203=clr {
  206. n204=  %i = 0
  207. n205=  %rsolt = ""
  208. n206=  %already = $replace(*1,$chr(32),$chr(1))
  209. n207=  :start
  210. n208=  inc %i
  211. n209=  if (%i > $len(%already)) { goto resolt }
  212. n210=  else { set %rsolt %rsolt $chr(3) $+ $r(2,15) $+ $mid(%i,1,%already) $+ $chr(3) | goto start }
  213. n211=  :resolt
  214. n212=  %rsolt = $remove(%rsolt,$chr(32)) 
  215. n213=  %rsolt = $replace(%rsolt,$chr(1),$chr(32))
  216. n214=  return %rsolt
  217. n215=}
  218. n216=checkr say $chckr(*1)
  219. n217=chckr {
  220. n218=  %i = 0
  221. n219=  %rsolt = ""
  222. n220=  %already = $replace(*1,$chr(32),$chr(1))
  223. n221=  :start
  224. n222=  inc %i 
  225. n223=  if (%i > $len(%already)) { goto resolt }
  226. n224=  else { set %rsolt %rsolt $chr(22) $+ $mid(%i,1,%already) | goto start }
  227. n225=  :resolt
  228. n226=  %rsolt = $remove(%rsolt,$chr(32)) 
  229. n227=  %rsolt = $replace(%rsolt,$chr(1),$chr(32))
  230. n228=  return %rsolt
  231. n229=}
  232. n230=;================================================================================
  233. n231=;============= Ripped This Out Of Blue-Chip Script Cause It Looks Cool :) ====================
  234. n232=/ct {
  235. n233=  %c = *1
  236. n234=  set %c $replace(%c,a,4a)
  237. n235=  set %c $replace(%c,b,3b)
  238. n236=  set %c $replace(%c,c,6c) 
  239. n237=  set %c $replace(%c,d,7d) 
  240. n238=  set %c $replace(%c,e,4e) 
  241. n239=  set %c $replace(%c,f,12f) 
  242. n240=  set %c $replace(%c,g,13g) 
  243. n241=  set %c $replace(%c,h,6h) 
  244. n242=  set %c $replace(%c,i,4i) 
  245. n243=  set %c $replace(%c,j,j) 
  246. n244=  set %c $replace(%c,k,3k) 
  247. n245=  set %c $replace(%c,l,l) 
  248. n246=  set %c $replace(%c,m,4m) 
  249. n247=  set %c $replace(%c,n,6n)
  250. n248=  set %c $replace(%c,o,4o) 
  251. n249=  set %c $replace(%c,p,12p) 
  252. n250=  set %c $replace(%c,q,q) 
  253. n251=  set %c $replace(%c,r,13r) 
  254. n252=  set %c $replace(%c,s,7s) 
  255. n253=  set %c $replace(%c,t,t) 
  256. n254=  set %c $replace(%c,u,4u) 
  257. n255=  set %c $replace(%c,v,v) 
  258. n256=  set %c $replace(%c,w,12w) 
  259. n257=  set %c $replace(%c,x,7x) 
  260. n258=  set %c $replace(%c,y,y) 
  261. n259=  set %c $replace(%c,z,6z) 
  262. n260=  set %c $replace(%c,?,12┐15?) 
  263. n261=  say %c
  264. n262=  unset %c
  265. n263=}
  266. n264=;======================================================================================
  267. n265=;==================== Encryption from Genocide by my friend Topher :) ============================
  268. n266=/gtext {
  269. n267=  if ($1 == $null) { echo 2 GTEXT - /gtext <message> | halt }
  270. n268=  %gtext = *1
  271. n269=  %gtext = $replace(%gtext,a,4│) | %gtext = $replace(%gtext,b,2⌐) | %gtext = $replace(%gtext,c,3≈)
  272. n270=  %gtext = $replace(%gtext,d,5∙) | %gtext = $replace(%gtext,e,6╙) | %gtext = $replace(%gtext,f,7╜)
  273. n271=  %gtext = $replace(%gtext,g,4╝) | %gtext = $replace(%gtext,h,9Ü) | %gtext = $replace(%gtext,i,10≡)
  274. n272=  %gtext = $replace(%gtext,j,11π) | %gtext = $replace(%gtext,k,12Γ) | %gtext = $replace(%gtext,l,13┬)
  275. n273=  %gtext = $replace(%gtext,m,14») | %gtext = $replace(%gtext,n,15▒) | %gtext = $replace(%gtext,o,2┐)
  276. n274=  %gtext = $replace(%gtext,p,3╫) | %gtext = $replace(%gtext,q,4╕) | %gtext = $replace(%gtext,r,5╗)
  277. n275=  %gtext = $replace(%gtext,s,6µ) | %gtext = $replace(%gtext,t,7ó) | %gtext = $replace(%gtext,u,12÷)
  278. n276=  %gtext = $replace(%gtext,v,9▐) | %gtext = $replace(%gtext,w,10τ) | %gtext = $replace(%gtext,x,11Ç)
  279. n277=  %gtext = $replace(%gtext,y,12º) | %gtext = $replace(%gtext,z,13¿) | %gtext = $replace(%gtext,$chr(32),Ñ) 
  280. n278=  say (Genocide) %gtext
  281. n279=  echo 2 $me G-Text: *1
  282. n280=}  
  283. n281=;======================================================================================
  284. n282=;======================A Few More Colour Addons Ripped Out Of Top^Catt Script===============
  285. n283=/fr {
  286. n284=  set %rk *1
  287. n285=  %rk = $replace(%rk,a,4a)
  288. n286=  %rk = $replace(%rk,b,4b)
  289. n287=  %rk = $replace(%rk,c,4c)
  290. n288=  %rk = $replace(%rk,d,4d)
  291. n289=  %rk = $replace(%rk,e,4e)
  292. n290=  %rk = $replace(%rk,f,4f)
  293. n291=  %rk = $replace(%rk,g,4g)
  294. n292=  %rk = $replace(%rk,h,4h)
  295. n293=  %rk = $replace(%rk,i,4i)
  296. n294=  %rk = $replace(%rk,j,4j)
  297. n295=  %rk = $replace(%rk,k,4k)
  298. n296=  %rk = $replace(%rk,l,4l)
  299. n297=  %rk = $replace(%rk,m,4m)
  300. n298=  %rk = $replace(%rk,n,4n)
  301. n299=  %rk = $replace(%rk,o,4o)
  302. n300=  %rk = $replace(%rk,p,4p)
  303. n301=  %rk = $replace(%rk,q,4q)
  304. n302=  %rk = $replace(%rk,r,4r)
  305. n303=  %rk = $replace(%rk,s,4s)
  306. n304=  %rk = $replace(%rk,t,4t)
  307. n305=  %rk = $replace(%rk,u,4u)
  308. n306=  %rk = $replace(%rk,v,4v)
  309. n307=  %rk = $replace(%rk,w,4w)
  310. n308=  %rk = $replace(%rk,x,4x)
  311. n309=  %rk = $replace(%rk,y,4y)
  312. n310=  %rk = $replace(%rk,z,4z)
  313. n311=  say %rk
  314. n312=  unset %rk
  315. n313=}
  316. n314=/ctext { 
  317. n315=  unset %ctext*
  318. n316=  set %loop 0
  319. n317=  set %ctext *1
  320. n318=  :1
  321. n319=  inc %loop 1
  322. n320=  if ($mid(%loop,1,%ctext) == $chr(32)) { %ctext2 = %ctext2 $+ $chr(160) | goto 1 }
  323. n321=  %ctext1 =  $+ $rand(1,13) $+ $mid(%loop,1,%ctext)
  324. n322=  if (%ctext2 == $null) { %ctext2 = %ctext1 }
  325. n323=  else { %ctext2 = %ctext2 $+ %ctext1 }
  326. n324=  ;echo -s .. %ctext4
  327. n325=  if (%loop => $len(%ctext)) { say %ctext2 | unset %ctext* | unset %loop | halt }
  328. n326=  goto 1
  329. n327=}
  330. n328=/tom { %num = 1 | unset %msg  | %msg =  | %color = p
  331. n329=  :start
  332. n330=  if %color == p { %num2 = 8 | %num3 = 6 | %color = y | goto add }
  333. n331=  if %color == y  { %num2 = 11 | %num3 = 12 | %color = p | goto add }
  334. n332=  :add
  335. n333=  if $mid(%num,1, *1) != $null {
  336. n334=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  337. n335=    inc %num 
  338. n336=  goto start  }
  339. n337=  say %msg
  340. n338=}
  341. n339=/dir { %num = 1 | unset %msg  | %msg =  | %color = p
  342. n340=  :start
  343. n341=  if %color == p { %num2 = 4 | %num3 = 1 | %color = y | goto add }
  344. n342=  if %color == y  { %num2 = 8 | %num3 = 13 | %color = w | goto add }
  345. n343=  if %color == w  { %num2 = 12 | %num3 = 3 | %color = p | goto add }
  346. n344=  :add
  347. n345=  if $mid(%num,1, *1) != $null {
  348. n346=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  349. n347=    inc %num 
  350. n348=  goto start  }
  351. n349=  say %msg
  352. n350=}
  353. n351=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  354. n352=  :start
  355. n353=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  356. n354=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  357. n355=  :add
  358. n356=  if $mid(%num,1, *1) != $null {
  359. n357=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  360. n358=    inc %num 
  361. n359=  goto start  }
  362. n360=  say %msg
  363. n361=}
  364. n362=/ransom { %num = 2 | unset %msg  | %msg =   $upper( $mid(1, 1,*1) ) $+ 
  365. n363=  :start
  366. n364=  %U = $rand(1,2) | %B = $rand(1,2) | %R = $rand(1,2) | %up = $rand(1,2) 
  367. n365=  %DaMan =  
  368. n366=  if %u == 1 { %DaMan = $remove(%daMan,) }
  369. n367=  if %b == 1 { %DaMan = $remove(%DaMan,) }
  370. n368=  if %R == 1 { %DaMan = $remove(%DaMan,) }
  371. n369=  if $mid(%num,1, *1) != $null {
  372. n370=    if %up == 1 && $mid(%num, 1,*1) != $chr(32)  { %msg = %msg $+ %DaMan $+ $upper( [ $mid(%num, 1,*1) ] ) $+ %DaMan }
  373. n371=    if %up == 2 || $mid(%num, 1,*1) == $chr(32) { %msg = %msg $+ %DaMan $+ $mid(%num, 1,*1) $+ %DaMan }
  374. n372=    inc %num 
  375. n373=  goto start  }
  376. n374=  say %msg
  377. n375=}
  378. n376=/rev {
  379. n377=  unset %final
  380. n378=  unset %endreverse
  381. n379=  set %sections $token(0,32,*1)
  382. n380=  :revstart
  383. n381=  if (%sections == 0) goto revend  
  384. n382=  set %reverseme $token(%sections,32,*1)
  385. n383=  set %length $len(%reverseme)
  386. n384=  set %backtext $mid(%length,1,%reverseme)  
  387. n385=  dec %length 1  
  388. n386=  :backstart
  389. n387=  if (%length == 0) goto backend
  390. n388=  set %tempback $mid(%length,1,%reverseme)
  391. n389=  set %backtext %backtext $+ %tempback 
  392. n390=  dec %length 1
  393. n391=  goto backstart
  394. n392=  :backend
  395. n393=  set %reversed_text %backtext
  396. n394=  set %temp %reversed_text
  397. n395=  set %final %final %temp
  398. n396=  dec %sections 1
  399. n397=  goto revstart  
  400. n398=  :revend
  401. n399=  set %endreverse %final
  402. n400=  say %final
  403. n401=}
  404. n402=;=============================================================
  405.